home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution5.4b
< prev
next >
Wrap
Text File
|
2007-02-28
|
357b
|
19 lines
0010 DIM ALFA$ OF 7, CH$ OF 1
0020 INPUT ALFA$
0030 NUMCON
0040 PRINT NUM/10^DEC
0050 //
0060 PROC NUMCON
0070 FLAG:=0; DEC:=0; NUM:=0
0080 FOR K:=1 TO LEN(ALFA$) DO
0090 CH$:=ALFA$(K)
0100 IF CH$="." THEN
0110 FLAG:=1
0120 ELSE
0130 NEWDIG:=ORD(CH$)-48
0140 NUM:=NUM*10+NEWDIG
0150 IF FLAG=1 THEN DEC:=DEC+1
0160 ENDIF
0170 ENDFOR K
0180 ENDPROC NUMCON